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allowed near a computer. My first programming job was with an 
insurance company where we seldom even saw the electro- 
mechanical beast for which we composed programs. 

We would write programs on sheaves of paper and send them 
down to another department where a battery of keyboard experts 
transcribed our efforts onto 80-column punched cards. These were 
sent back to us, and we added a few ‘job control’ cards that would 
tell the computer system how and where to compile each program — 
and how to test it. All the programs (whether on paper or on cards) 
were conducted between the three departments involved after nor- 
mal hours by anonymous individuals our manager jokingly referred 
to as ‘tooth fairies’. 

One morning the manager called me to his office and told me 
that I was to meet one of the legendary tooth fairies, who had an 
apology to make. He warned me to keep my temper. 

The poor messenger was visibly shaken as he told me how he 
had dropped a large deck of punched cards, mixing up my program 
before it had been converted to a more permanent medium. I 
thought about the hour or so of extra work, matching small groups 
of cards with my original sheaves, and groaned. The tooth fairy 
then brightened and said ‘It will not be too hard to put it back 
together again —I spent most of last night sorting all 80 columns of 
the cards’. Can you imagine a program with its statements sorted 
into alphabetical order — all the ADDs coming at the beginning? 

The moral: don’t try to fix somebody else’s problem until you 
know that your effort will improve matters. 


GRAPHICS IN TEXT MODE 

Recently I was investigating the format of standard Windows icon 
files — 766 bytes long, bearing the extension .ICO. I thought about 
building an editor capable of changing or creating an icon — but this 
editor should be capable of running on a Windows-less PC (Yes, 
there is such a thing!). A developer I know wanted to create ICO 
files for DOS programs which he developed, so they could be run 
from Windows by clicking on a nice icon — yet he had no Windows 
system on which he could develop such a thing. His plight made 
me wonder whether anything could be done in plain DOS, using 
minimal screen resources. 

An ICO picture requires pixels in 32 rows of 32 columns. We 
only have 25 rows with a standard display (mode 3, available with 
CGA — Colour Graphics Adaptor — and better). So I considered dis- 
carding the idea of using it. But then I thought, if we use the 
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In this month’s Workshop, Wilf Hey cautions against 
fixing other people’s problems, shows a way to dis- 
play a Windows icon on a Windows-less PC, unravels 
the mystery of integer functions, and explains a sim- 
ple method for structuring your programs. 


‘half-height’ character - CHR$(220) — each text position can repre- 
sent two rows, giving us a potential 50 rows by 80 columns. Using 
this character in every position, the colour of the top half of each 
position can be independent of the the colour of the bottom half. 


A BLINKING PROBLEM 

This same technique can be applied to more general programming 
problems. Perhaps you would like to experiment with the notion of 
a drawing program using all 16 colours everywhere on this 50-by- 
80 grid; or maybe you would simply like to use pastel colours as 
backgrounds for text in boxes (they are easier to see for people with 
certain kinds of eye conditions and colour blindness). 

There is one problem doing this, but it’s not insurmountable. If 
you want to feature all 16 colours (eight dark, eight bright), you 
will have to make a slight adjustment so that all 16 colours can be 
used for the background; the background colour is used in the top 
half of each character position in my 50-by-80 grid. 

There’s a little trick; or actually, two different tricks — one for 
EGA (Enhanced Graphics Adaptor) and a different one for the sim- 
pler CGA (Colour Graphics Adaptor): both tricks change the 
character attribute bit that normally means BLINK or NO BLINK 
so that instead it means BRIGHT or DULL BACKGROUND. 

The trick for CGA involves a simple OUT; it affects a port that 
doesn’t exist if you have EGA or VGA installed. The trick for EGA 
involves a CALL INTERRUPT; one that won’t work if you have 
no EGA card installed. GW-Basic programmers don’t have the 
CALL INTERRUPT instruction, but they can still use the tricks by D 


@Witha 
few tricks 
and a little 
ingenuity 
you can 
display pic- 
tures made 
up of 16 
colours in 
Basic’s 
SCREEN 0 
mode. 
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employing a little POKE routine. 

The following code will set a tiny assembler program into the 
array ASMCODE and execute it. This code will turn off Blinking and 
allow the use of 16 background colours. If you are using QBasic 
instead of GW-Basic you should substitute the line CALL ASM 
with CALL ABSOLUTE (ASM) to accomplish the same. 


100 DIM ASMCODE (3) 

110 ASM = VARPTR(ASMCODE (0) ) 
120 POKE ASM + 0,&HBB 
130 POKE ASM + 1,&HO 
140 POKE ASM + 2,&H10 
150 POKE ASM + 3,&H88 
160 POKE ASM + 4,&HF8 
170 POKE ASM + 5,&HBA 
180 POKE ASM + 6,&HD9 
190 POKE ASM + 7,&H3 
200 POKE ASM + 8,&HEE 
210 POKE ASM + 9,&HB8 
220 POKE ASM + 10, &H3 
230 POKE ASM + 11,&H10 
240 POKE ASM + 12,&HCD 
250 POKE ASM + 13,&H10 
260 POKE ASM + 14,&HCB 
270 CALL ASM 


When you terminate the program you will (if you are considerate) 
want to restore Blinking to its normal state: this is done with 
exactly the same code except for the POKES into ASM + 1 and 
ASM + 2: these should be: 


POKE ASM + 1,&H1 
POKE ASM + 2,&HO 


I suggest you re-POKE all these values (rather than just modify 
these two bytes) because of the possibility that the Basic ‘garbage 
collector’ was invoked — which can move strings and arrays to dif- 
ferent parts of memory unexpectedly. The assembler routine 
corresponding to these simple POKEs is as follows: 


MOV BX,1000h 

MOV AL, BH ;set character to be sent OUT 
MOV DX,03D9h ;set port for CGA register 
OUT DX,AL ;alter CGA register 
MOV AX,1003h ;indicate EGA call 
INT 10h ;alter EGA register 
RETF ;return to BASIC 


(character in BL) 


The alternate POKEs to turn blinking back on effectively change 
the first instruction to MOV BX, 0001h, changing the characters 
used to alter the CGA and EGA registers. 
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For those who are interested, here is the fruit of 5 magenta 

my research into the format of the standard 6 cyan 

Windows ICO file: it is 766 bytes long - so you 7 white 

may have wondered how it can be used to 8 bright black (grey) 
describe a picture 32 rows by 32 columns by 18 9 bright red 

colours (16 plus transparent plus shadow). Its A bright green 


B bright brown (yellow) 


FAST CHEQUERBOARD EFFECT 

Joe Charlton (Nottingham) sends in a few neat lines that make use 
of the CHR$(220) trick to create an interesting chequerboard effect. 
If you have CGA, the screen display actually exists in memory at 
Segment &HB800. Each character on screen is described there by 
two bytes; the first is the character itself, and the second is the 
attribute, which corresponds to the COLOR parameters: the high 
nybble is the background, the low nybble is the foreground. 

Joe’s routine neatly calculates the address of a particular ROW 
and COL(umn) as 160*ROW + COL + COL — 162. (The 162 
occurs here to compensate for ROW and COL starting at one where 
the actual address offset starts at zero). 

With two simple loops, Joe creates a red and green chequer- 
board pattern on the screen. 


100 DEF SEG = &HB800 

110 FOR ROW = 1 TO 20 

120 FOR COL = 2 TO 80 STEP 2 

130 ADDR = ROW*160 + COL + COL - 162 
140 POKE ADDR, 220 

150 POKE ADDR + 1, &H24 

160 NEXT 

170 NEXT 

180 FOR ROW = 1 TO 20 

190 FOR COL =\1 TO 79 STEP 2 

200 ADDR = ROW*160 + COL + COL - 162 
210 POKE ADDR, 220 

220 POKE ADDR + 1, &H42 

230 NEXT 

240 NEXT 


These two loops could be reduced to one easily, but it wouldn’t be 
quite as clear what was going on. The changes are: 


152 POKE ADDR + 2, 220 
154 POKE ADDR + 3, &H42 
DELETE 180-240 


Perhaps you could come up with some ideas for more quick POKE 
patterns, or other effects? 


INTEGER INSANITY 

It was reader Ian Lovelock who first brought to our attention some 
of the problems that arise when you use numbers in certain ways, 
and then get peculiar results. 

I remember running into problems when I wrote a program to 
do a simple, repeated calculation that involved integers at one 
point. Basic (as do most other languages) offers several ways of 
converting to integer format from real format (the default, which 
allows decimal places). They are: 

(1) moving a calculation into an integer field 


(sharing code F with bright white). An extra bit 
is used to distinguish between the normal 
colours and these two special conditions: 0 
means colour and 1 means special. 

The colours for the bottom row of the icon 
(the first of 32) are encoded starting at offset 
&HOO7E within the .ICO file - the top nybble 


HEXADECIMAL COLOUR 


0 black 
1 red 

2 green 
3 brown 
4 blue 


(allowing any of the Red-Green-Blue mixtures C bright blue 
possible) for each of 16 codes, but normally D bright magenta 
these codes are assigned to the 16 colours we E bright cyan 
all know and love: F bright white 


These are not assigned in the usual DOS way, 
but are directly related to the ANSI.SYS way of 
defining colours. 

Besides the 16 colours there are two other 
possibilities which depend on the background 
colour being used behind the icon: one is trans- 
parent (sharing code 0 with black) and inverse 
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(half-byte) of the first byte is the colour code for 
column 1, and the bottom nybble is the code for 
column 2. So 16 bytes describes the bottom 
row, and the information for the next row up 
starts at offset &HOO8E. 

The extra bit is in a different table, starting 
at offset &HO27E within the .ICO file: it starts (as 
for the colours table) at the bottom row of the 
icon itself, and bits run from highest to lowest. 
This means that bit &H80 of &H027E applies to 
column 1 of the bottom row, while bit &H40 
applies to column 2. 


S 


@ An instant 
chequer- 
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(Colour 
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Adaptor) 
screens. 


(2) using CINT() function 
(3) using FIX() function 
(4) using INT() function 


J Spill of Manchester writes complaining about this wild array 
of functions; the manual he has doesn’t make the differences 
between these conditions very clear, and wants to know how he can 
tell which to use. 

First of all you should note that almost all flavours of Basic — 
and of course other languages — use the CINT() function when it 
has to store a result in an integer field. The main concern is that the 
function is not done until the whole calculation is finished. 

Versions of some languages (notably C) make things harder by 
doing calculations in different ways, depending on the nature of the 
numbers used: if A is defined as an integer with value 50 then A/4 
has value 12, but A/4.0 has value 12.5; if the result of the former 
calculation (12) is moved to another integer field, it ends up as 12, 
but the result of the latter (12.5) ends up as 13 (it gets rounded). 
Here is how I remind myself of the use of each of these functions: 


CINT() takes the real number and rounds it; if the decimal portion 
is .5 or more, the function rounds up. Remember that just as 3.5 
rounds to 4, so -3.5 rounds to -4. 


FIX() takes the real number and drops any decimal portion: 3.999 
becomes 3. 


Note that there is a trap here; when you calculate with real numbers 
the computer is actually using logarithms. At the best of times, its 
results are actually estimates accurate to several decimal places. 
Sometimes a calculation that should come to exactly four is ren- 
dered 3.999999; the difference is slight, and acceptable. But if you 
use FIX() this can make a great difference. 

Use FIX() sparingly; it is useful if you want to avoid rounding, 
but be very careful. You could avoid miscalculations by adding a 
small amount to the calculation (perhaps +.01) before you FIX() it. 

INT() gives you the integer equal to or less than the real num- 
ber. Like FIX(), this function will turn 3.999 into 3 — so you can 
easily fall into the same trap. The definition of INT() sounds like 
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just another way of doing the same as FIX(), but this isn’t quite the 
case. There is a difference but it is very slight: they treat negative 
numbers differently. FLX(-3.4) will drop the decimal and give you 
the value -3; INT(-3.4) returns the value -4, which is the nearest 
integer less than -3.4. 

I find that INT() is useful when calculating values for a chart or 
graph where there is nothing special about the division between 
positive and negative. If you were making a graph of boiling or 
freezing points, there is no significance to the zero mark, so you 
should use INT(). If you were building a table of returns on a stock 
investment you would be better to use FIX(). With positive num- 
bers it doesn’t matter which you use. 


THE PAINTING PROJECTS 
This month I offer two different projects for you to consider. 

For DOS enthusiasts, write a program that uses the blink/pastel 
trick described earlier; it should be a picture-composing program 
using the normal 25 by 80 colour screen as if it were made up of 50 
by 80 pixels. I can think of some interesting ways colours and pix- 
els can be described, using simply arrow keys and a few other 
function keys; can you? 

The most challenging part of this project could well be han- 
dling the screen: every time that you change (or COLOR) a ° 
character, you are affecting the same column in two different rows! 
Here is a hint: by using CHR$(220) you can use foreground to 
colour the lower row, and background to colour the next higher row 
— in pairs. Remember, though, that the BLINK characteristic 
(adding 16 to the foreground colour) actually brightens the back- 
ground colour. 

There will be a prize for the best three programs (or even par- 
tial programs), and you will have two months in which to address 
the problem (until the end of July). Extra consideration will be 
given to programs which incorporate special features. One which 
comes to mind instantly is: how about optionally converting the 
output to ANSI standard (with embedded ANSI escape strings to 
change colours); such pictures would be useful for bulletin boards. 

For Windows fans, use Visual Basic 2.0 to write your own 
drawing program. It should be capable of at least drawing simple 
shapes, like circles and rectangles, but obviously the more capabili- 
ties the better. The best programs will be featured in a future Visual 
Basic Workshop, our new spot for Visual Basic programmers, start- 
ing next month. @ 


Tips, tricks and arguments are gratefully received at: 
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| have always found one thing particularly frus- 
trating when | start a program: | do not think in 
linear ways. Almost all programming languages 
require the discipline that you think in a linear 
way, proceeding from step to step as you would 
in following a recipe. 

One bold step away from stilted computer- 
thinking and towards a more complex human 
way of thinking can be seen in Visual Basic. The 
language is just ordinary Basic, but a project is 
put together as a series of ‘events’ which can be 
considered as overlapping, interconnected or 
independent - much more like the way the 
human brain analyses and computes. 

That's not to say the creators of Visual Basic 
have come up with the answer: for one thing it is 
not easy to pick up and analyse somebody else's 
idea of a good Visual Basic program - and 
almost impossible to document it on paper (as in 
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a book, for example). 

There is a technique (although still frustrat- 
ingly linear) that helps to organise thoughts 
when you start to create a program: Step 
Refinement. This involves writing down, in a sim- 
ple list, the main steps in a process; you can then 
take each of the steps in turn and treat it as a 
process in the same way. Each item in each list 
can be turned into a single CALL statement (or a 
function, or maybe a DO or WHILE loop). 

Suppose you are writing a game; using the 
Step Refinement technique you could start off: 


PROGRAM GAME 
CALL SETUP 
CALL PLAY 

CALL RESULT 
END 
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With just a few changes for syntax, this is a valid, 
working program in virtually any language; all 
you have to do is supply dummy subroutines for 
SETUP, PLAY and RESULT, such as: 


The principal advantages | find to this method 
are that you can get a working program up and 
running almost instantly, and that no one section 
prevents you testing other sections. 

For example: suppose you haven't yet per- 
fected the setup routine; you can still test the 
actual game by doing a specific setup (with con- 
stants instead of variables, perhaps) within a 
dummy version of that subroutine. 
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Sportster V32bis 


e V32bis - V21 (14400 bps) 
e V42bis data compression 
e Group 3 Fax (14400 bps) 
e Complete with BlastFax 


MicroLin V32bis 


e V32bis - V21 (14400 bps) 
e V42bis data compression 
e Group 3 Fax (14400 bps) 
e V22bis/Fax version £199 


£299 


Modem sharing on LANs 


Users of Novell or other LANs can 
now share modems using US 
Robotics’ LAN sharing kit. The kit 
includes a V32bis modem and every- 
thing you need to give everyone easy 
access toit. Prices from £599 


Racal MXF2422 
Multitech 1432BLK 
Multitech 1432BK 


High Speed Serial Card 


High speed modems need serial ports which 
can adequately drive them to prevent poor 
throughput or CRC errors, especially with 
MS-Windows or Desqview. Our high speed 
serial card is based around a 16550 buffered 
UART for maximum modem performance. 
Various versions are available. Frgm £35 


Courier V32bis & Fax 


The Modem Experts |! 


All of our modems are fully 
BABT approved; it is unlawful to 
use any unapproved modem, 
and with our prices so low, 
there’s no need to buy inferior 
unapproved modems any more ! 


All modems shown carry a full 5 
year warranty. We welcome 


US Robotics Courier V32bis and 
PC/AT Modem Cable ... 


“Deputy” Software 
All prices + p&p and VAT 


HST Dual Standard modems 
now support fax send and 
receive. The DS also supports 
the new 16.8K HST speed. Both 
now come in a smaller case and 


government, local authority and 
educational orders, as well as 
payment by cheque, draft or 
credit card. If you find someone 
advertising a lower price, let us 


APPROVED for connection to know and we'll try and beat it. 
telecommunications systems 
specified in the instructions for 
use, subject to the conditions 
set out in them. 


are guaranteed upgradable to 
the new CCITT V.Fast speed. V32bis: £449 DS: £599 


Call us now on (081) 959 3377 


For advice or other information, 
please don’t hesitate to call us ! 


YOUR PASSPORT TO TWO WAY TRANSLATION 


FOR BI-DIRECTIONAL TRANSLATION POWER NOTHING TOPS THE NEW LANGUAGE ASSISTANT SERIES 


\\¢4 r 
FRENCH] GERMAN} JOPANISH) {ITALIAN 


THE NEW BI-DIRECTIONAL LANGUAGE ASSISTANT IS NOW AVAILABLE 


VERSION 5 OF LANGUAGE ASSISTANT IS NOW CALL 0903 850973 OR SEE YOUR LOCAL 
AVAILABLE SOFTWARE DEALER 


With its new bi-directional capability and using rule-based 


expert system technology, language assistant will analyse text JUST SOFTWARE 


and translate documents into the target language on a 


sentence by sentence basis. PO BOX 1329 


It has new, larger bilingual dictionaries that instantly recognise ANGMERING 
over 100,000 terms and if needed the dictionaries can be WEST SUSSEX 
easily customized by the user. BN16 4ZE 

Plus its new enhanced usage information will help you make 


accurate decisions when writing, translating or studying. 

Language Assistant will help you:- o . TEL 0903 - 850973 
FAX 0453 - 811756 

- Decipher foreign documents “ia wa 

- Understand a language era EN 


EASY TO USE, EASY TO INSTALL AND OUTSTANDING ¢ USERS OF VERSION 4.1 CAN UPGRADE TO 
VALUE FOR BUSINESS PEOPLE, TEACHERS, TRAVELLERS OR VERSION 5 VIA THE UPGRADE PACK THAT IS 


STUDENTS. 
It operates on IBM and compatible PCs with 640K RAM, DOS AVAILABLE FOR ONLY £22.00 PLUS P&P 


2.1 or above, and a hard disk. 


- Successfully communicate in a foreign language 


